home *** CD-ROM | disk | FTP | other *** search
/ Chip: Internet / Chip Internet.iso / viewer / ghost / port_gif.ps < prev    next >
Text File  |  1993-03-15  |  927b  |  29 lines
  1. % A small prologue for going from landscape mode to portrait.
  2. % The files will no longer fit without some kind of scaling.
  3. % This is a rough attempt by a novice... there must be a better way.
  4. %
  5. % This version is intended to fit what would have been a Landscape image
  6. % inside a 640x480 image file.  It is intended to be used
  7. % with the command line parameters
  8. %        -g640x480 port_gif.ps 
  9.  
  10.  
  11.     gsave clippath pathbbox grestore
  12.     4 dict begin
  13.     /ury exch def /urx exch def /lly exch def /llx exch def
  14.     269 127 translate
  15.         .77 .77 scale
  16.     90 rotate
  17.     ury urx sub llx ury add neg translate
  18.     gsave clippath pathbbox grestore
  19.     4 dict begin
  20.     /ury exch def /urx exch def /lly exch def /llx exch def
  21.     90 rotate
  22.     ury urx sub llx ury add neg translate
  23.     gsave clippath pathbbox grestore
  24.     4 dict begin
  25.     /ury exch def /urx exch def /lly exch def /llx exch def
  26.     90 rotate
  27.     ury urx sub llx ury add neg translate
  28.     end
  29.